lgt_CH_VS Function

private elemental function lgt_CH_VS(string_a, string_b) result(comp)

Compare (LGT) a character string and a varying string

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string_a
type(varying_string), intent(in) :: string_b

Return Value logical


Source Code

  elemental function lgt_CH_VS (string_a, string_b) result (comp)

    character(LEN=*), intent(in)     :: string_a
    type(varying_string), intent(in) :: string_b
    logical                          :: comp


    comp = LGT(string_a, char(string_b))

! Finish

    return

  end function lgt_CH_VS